home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / text / misc / 2b_Ort.lha / Ort / ARexx / SprWyraz.atxt < prev    next >
Text File  |  1999-02-10  |  2KB  |  85 lines
  1. /*
  2. $ver: SprWyraz.atxt 1.2 (03.11.98) BLABLA PRODUCT
  3. © 1998 Siumot/BlaBla
  4.  
  5. Ten skrypt jest przeznaczony dla programu AmiTekst. Sprawdza on poprawnoôê
  6. pod wzglëdem ortograficznym wyrau znajdujâcego sië pod kursorem w programie
  7. AmiTekst. Jeôli w konfiguracji programu Ort jest ustawione îâczenie wyrazów
  8. a pod kursorem znajduje sië wyraz, który Ort îâczy (np. "nie") to skrypt
  9. odczyta nastëpny wyraz i do sprawdzenia przeôle poîâczony wyraz (np.
  10. "nie lubië"). W takiej sytuacji kursor tekstowy zostanie przesuniëty na
  11. drugi wyraz. Skrypt najlepiej podîoûyê pod klawisz funkcyjny w programie
  12. AmiTekst.
  13.  
  14. UWAGA!!! Jeôli nie zainstalowaîeô tego skryptu instalatorem Orta,
  15.          to musisz dopisaê nastëpujâcâ linië:
  16.          ORTFILENAME=ôcieûka dostëpu/Ort
  17.      Zamiast "ôcieûka dostëpu" naleûy oczywiôcie wpisaê ôcieûkë dostëpu
  18.          do programu Ort (np. ORTFILENAME=dh2:tekst/ort/ort).
  19. */
  20.  
  21. OPTIONS RESULTS
  22.  
  23. loncz_wyr='NIE NA CO PO JAK OD W BEZ Z NAD'
  24.  
  25. IF ~SHOW('P', 'AmiTekst_port') THEN EXIT 1
  26. ADDRESS 'AmiTekst_port'
  27.  
  28. IF ~SHOW('P', '2b_Ort_rexx') THEN DO
  29.    IF ORTFILENAME='ORTFILENAME' THEN DO
  30.      OKAY1 'Program Ort nie jest uruchomiony.'
  31.      EXIT
  32.    END
  33.    ARexxInfo 'Uruchamiam program Ort'
  34.    ADDRESS COMMAND 'Run >NIL: "'ORTFILENAME'" CX_POPUP'
  35.    ADDRESS COMMAND 'WaitForPort 2b_Ort_rexx'
  36. END
  37.  
  38. ADDRESS '2b_Ort_rexx' Prefs Join Words
  39. czylacz=RESULT
  40.  
  41. Status CursorWord
  42. wyraz=RESULT
  43.  
  44. IF wyraz='RESULT' THEN DO
  45.   ARexxInfo 'Nie ma wyrazu pod kursorem!'
  46.   Exit
  47. END
  48.  
  49. ARexxInfo 'Sprawdzam wyraz'
  50.  
  51. IF czylacz=1 THEN DO
  52.   wyraz_duzy=UPPER(wyraz)
  53.   IF ~(FIND(loncz_wyr,wyraz_duzy)=0) THEN DO
  54.     NextWord
  55.     Status CursorWord
  56.     dczlon=RESULT
  57.     IF FIND(loncz_wyr' I A RESULT',UPPER(dczlon))=0 THEN wyraz=wyraz' 'dczlon
  58.     ELSE PrevWord
  59.   END
  60. END
  61.  
  62. ADDRESS '2b_Ort_rexx'
  63.  
  64. Correction wyraz
  65. err=RESULT
  66. IF err=0 THEN tekst='Wyraz poprawny'
  67. ELSE IF err=1 THEN tekst='Nieznany wyraz'
  68. ELSE IF err=2 THEN tekst='Wyraz jest wyjâtkiem'
  69. ELSE IF err=3 THEN tekst='Bîâd interpunkcyjny'
  70.  
  71. ADDRESS "AmiTekst_port"
  72. ARexxInfo tekst
  73.  
  74. IF err=1 THEN DO
  75.   Request '"Sprawdzany wyraz: 'wyraz'0A'X'Wyraz jest niepoprawny lub nie zostaî dopisany do sîownika ORTa."' 'D.Globalnie|D.Specjal.|Opuszczaj|Poniechaj'
  76.   operacja=RESULT
  77.   ADDRESS '2b_Ort_rexx'
  78.   IF operacja=1 THEN Add Global wyraz
  79.   ELSE IF operacja=2 THEN Add Specialistic wyraz
  80.   ELSE IF operacja=3 THEN Add Omit wyraz
  81.   IF ~(operacja=0) THEN ADDRESS "AmiTekst_port" ARexxInfo 'Wyraz poprawny'
  82. END
  83.  
  84. EXIT
  85.